#!/usr/bin/perl -w
#
# Task A (2 points)
# Write a program that first asks the user for two DNA sequences. 
# The program should then compare the lengths of the sequences and 
# convert the longest sequence to all uppercase letters, and the shorter 
# sequence to all lowercase. As output, the converted sequences should 
# be printed.
# http://perldoc.perl.org/index-functions.html
#
# Get two DNA sequences from user
print "Please give the first DNA sequence ";
$seq1 = <STDIN>;chomp($seq1);
print "Please give the second DNA sequence ";
$seq2 = <STDIN>;chomp($seq2);

$short = $seq1;
$long = $seq2;
# Compare the two sequences' length
if (length($seq1) > length($seq2)){
	$short = $seq2;
	$long = $seq1;
}
print("The long string: ".uc("$long")."\n");
print("The short String: ".lc("$short"));


